EEEEEEEEEEEEEEE MMM MMM =UUU UUU LLL AAAAAAAAA TTTTTTTTITTTTTITT 
EEEEEEEEEEEEEEE MMM MMM = UUU UUU LLL AAAAAAAAA TTTTTTTTTTTTIITT 
EEEEEEEEEEEEEEE MMM MMM = =UUU UUU LLL ARAAARABDA TTTTTTTTTITTTITT 
EEE MMMMMM = =OMMMMMM =(UUU YUU LLL AAA AAA TTT 
EEE MAMMMM = =6MMMMM = =6UUU UUU LLL AAA AAA TTT 
EEE MAMMMM =6MMMMMM =6UUU UUU LLL AAA ABA TTT 
EEE MAM 6 OMA OM UUU LLL AAA Aan TTT 
EEE MAM OMA OMMM (UU UUU LLL AAA TTT 
EEE MAM 6 6OMMM OMMM (UU UUU LLL AAA AMA TTT 
EEEEEEEEEEEE MMM MMM = =UUU YUU LLL ABA hae TTT 
EEEEEEEEEEEE MMM MMM UUU LLL AAA AAA TTT 
EEEEEEEEEEEE MMM MMM = UUU UUU LLL TTT 
EEE MMM MAM = UUU UUU LLL AAAAAAAAAAAAAAA TTT 
EEE MMM MMM = =UUU UUU LLL AAAA TTT 
EEE MMM MMM = UUU UUU LLL ADAAAAAAAAAAAAA TTT 
EEE MMM MMM UUU LLL AA TTT 
EEE MMM MMM = UUU UUU LLL AAA ABA TTT 
EEE MMM MMM = UUU UUU LLL AAA AAA TTT 
EEEEEEEEEEEEEEE MMM MMM UUUUUUUUUUUUUUU  LLLLLLLLLLLLLLL AAA AAA TTT 
EEEEEEEEEEEEEEE MMM MMM UUUUUUUUUUUUUUU LLLLLLLLLLLLLLL AAA AAA TTT 
EEEEEEEEEEEEEEE MMM MMM = UUUUUUUUUUUUUUU  LLLLLLLLLLLLLLL AAA ABR TTT 
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VV VV AA AA XX Xx CC VV VV TT LL PP PP 
VV VV AA Aa XX = XX cc VV VV TT LL PP PP 
VV VV AA AA XX XX cc VV VV TT LL PP PP 
VV VV AA AA x cc VV VV TT LL PPPPPPPP 
VV VV AA AA x cc VV VV TT LL PPPPPPPP 
VV VV AA XX XX cc VV VV TT LL PP 
VV AAAAAAAAAA XX = XX cc VV VV TT LL PP 
vv ov AA XX Xx CC VV VV TT LL PP eeee 
ve VV AA AA XX Xx CC VW VV TT LL PP eeee 
vv AA AA XX XX cccccccc VV TT LLLLLLLLLL PP cece 
VV AA AA XX XX cccccccc VV TT LLLLLLLLLL PP cece 
LL T1111] SSSSSSS 
LL III] SSSSSSSS 
LL I] SS 
LL I] S$ 
LL I] S$ 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSS 
LL Il SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL IIII1] SSSSSSSS 
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++ 
: ; Facility: 


CSOoOOCCOCOCCOOCOOCOOCOOOOOCOOOOOOOOOOSO 


0000 

0000 VAX-11 Instruction Emulator 
0000 

0000 ; Abstract: 


The routine in this module emulates the VAX-11 packed decimal 
CVTLP instruction. This procedure can be a part of an emulator 
ackage or can be called directly after the input parameters 

ave been loaded into the architectural registers. 


The input parameters to this routine are the registers that 
contain the intermediate instruction state. 


This routine runs at any access mode, at any IPL, and is AST 
reentrant. 


; Author: 
Lawrence J. Kenah 
; Creation Date: | 
18 October 1983 
; Modified by: 
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Environment: 
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v01=004 LJK0040 Lawrence J. Kenah 24-Jul-1984 
Do not use an INCL instruction. to modify the contents of 
the sign byte of the output string. 


v01-003 LJK0032 Lawrence J. Kenah 5-Jul-1984 


The emulation code for CVTLP was moved into a separate module. 


SCOooooooooooooo 
SOOQOCOOCOOOooOOoOooo 
feoleleleleoleoleleleolololelol a) 
o 
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o 
“ 
Oe Be Se Se Se Se Oe Se Se Se Se Be Se Se 


0 6 Fix restart routine to take into account the fact that restart 
8 codes are based at one when computing restart PC. 

0 66 v01-002 LyK0024 Lawrence J. Kenah 22-F eb-1984 

S 67 Add code to handle access violations. Perform minor cleanup. 

8 v01-001 LJK0008 Lawrence J. Kenah 18-0c t-1983 
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09 64 . SUBTITLE Declarations 
8 f? ; Include files: 
60 58 -NOCROSS 3; No cross reference for these 
3 of » ENABLE SUPPRESSION ; No symbol table entries either 
00 0 CVTLP_DEF ; Bit fields in CVTLP registers | 
1 PACK DEF 3 Stack usage by exception handler 
¢ STACR_DEF ; Stack usage for original exception 
$00 : SPSLDEF ; Define bit fields in PSL 
4 § - DISABLE SUPPRESSION ; Turn on symbol table again 
B88 8 CROSS 3; Cross reference is OK now 
0000 89 ; External declarations 
44 90 
000 91 - DISABLE GLOBAL 
0000 3 
0000 9 EXTERNAL - 
0000 9% DECIMALSBINARY_TO_PACKED_TABLE 
0000 95 
444 96 EXTERNAL - 
000 97 VAXSEXIT_EMULATOR,- 
0000 46498 VAX$REFLECT_FAULT,- 
0000 gS VAXS$ROPRAND, - 
0000 100 VAXSDECIMAL_OVERFLOW 
0000 101 
0000 19¢ 3; PSECT Declarations: 
0000 10 
0000 104 
0000 105 
vant 8 16 -PSECT _VAX$CODE PIC, USR, CON, REL, LCL, SHR, EXE, RD, NOWRT, LONG 
0000 108 BEGIN_MARK_POINT RESTART 


| 
| 
DEFAULT DISPLACEMENT , WORD 
| 
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- SUBTITLE VAXSCVTLP = Convert Long to Packed 


:+ 
; Functional Description: 


The source operand is converted to a packed decimal string and the 
destination string operand specified by the destination length and 
destination address operands is replaced by the result. 


; Input Parameters: 


RO - src.rl Input longword to be converted 

Re - dstlen.rw Length of output decimal string 

R35 = dstaddr.ab Address of output packed decimal string 
; Output Parameters: 

RO = 0 

R1 = 0 

R2 = 

R35 = 


Address of ayes containing most significant digit of 
the destination string 


; Condition Codes: 


N <= destination string L 
Z <= destination string E 
V <- pees overflow 


SS 0 
QL 0 


; Register Usage: 


This routine uses RO through R5 and R11 as scratch registers. R10 
serves its usual function as an access violation routine pointer. The 
condition codes are stored in R11 as the routine executes. 


The algorithm used in this routine builds the packed decimal from 
least significant digit to most oigni icant digit. The least 
significant digit is obtained by d viding the input tonguore by 10 and 
storing the remainder as the least significant digit. The rest of the 
result is obtained by taking the quotient from the first step 
repeatedl ety téing y 100, and converting the resulting remainder 
into a ¥ r of packed decimal digits. This process contin 

quotient goes to zero. 


ves until the 


No special processing is observed for an input longword of zero. The 
correct results for this case drops out of normal processing. 


- ENABLE LOCAL BLOCK 
ASSUME CVTLP_B_STATE EQ 7 ; Make sure we test the right FPD bit 
BRW VAXSCVTLP_RESTART ; Restart somewhere else 


VAXSCVTLP: : 
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WRI =O OONOUES WN 20 OONAUE WIN $$ 9 ODNOA UE WWIN 0 OD NOU EWN "OO OONOUSWN—OOOnN IC 


RIP IPIPIMPYIPIPINIPYPIPIMINSIPIPINMI|AININIPINPIAD a nn at at a 2 2 = 2 


FruOOoMO SS Va—MmM 


ction Emulator for “evar 1 


SEP-1984 01:32:35 VAX/VMS Macro V04-00 Pa 
vert Long to Packe a P-19 38 9933 710 CEMULAT.SRCJVAXCVTLP.MAR; 2 a 3) 
pes ostvTyP _FPD+24>,R1,2$ ; Branch if this is a restart 
PUSHR #*M<R4,R57R10,R11> ; Save some registers 
ESTABLISH WANDER - ; Store address of access 
COTLP_ACCVIO : violation handler 


Get initial settings rer condition ogre The initial orereage for V and C 
will be zero. The initial eqsting of depends on the sign of the source 
operand. The Z-bit starts off se and. remains set anes a nonzero digit is 
stored in the gytput Serene 4 thy hat the final Z-bit may be set for 
nonzero hin ianee ieuteu string is not large enough. (The V-bit is set 
in this case.) In this case, the saved DV bit will determine whether to 
reflect an exception or merely report the sell «- to the caller. 


MOVPSL R11 Get DV bit from PSL on input 

INSV #PSL$M_Z,#0,44,R11 Start with Z-bit set ethers clear 
ROPRAND =GHECK R2 Insure that R2 LEQU $1 

coer eR2,R1 ; Convert digit count to byte count 


a. Get address of sign byte 

MARK_POINT CVTLP_1 , RESTART 

MOVB™ #12,(R3) Assume that sign is PLUS 

TSTL RO : Check sign of source operand 

BGEQ 10$ ; Start getting digits if not negative 
Source operand is minus. We remember that by getting the saved N-bit but work 
with the absolute value of the input operand from this point on. 

MARK_POINT CVTLP_2 , RESTART 

INCB (R3) : Convert ‘+’ to ‘="' (12 => 13) 

MNEGL RO,RO $ iorastion source operand 

BISB #PSLSM_N,R11 ; Set N-bit in saved PSW 


+ 

The first (least significant) digit is obtained by dividing the source 
lLongword by ten and storing the remainder in the h order nibble of the 
A ayte. Note that at this point, the upper four bits of the sign byte 
contain zero. 


10$ CLRL Prepare R1 for input to EDIV 
MOVL RD R4 Special exit if zero source length 
BEQL 90$ poly egg tale check remains 
EDIV m0 RO,RO,RS R5 rene inder first digit 
ASHL 4 R5.R5 Shift “digt t to high nibble position 
BEQL Leave Z-bit alone if digit is zero 
BIC $M_7Z,R11 Turn off Z-bit if nonzero 


B #PSL 
MARK_POINT _~ CVTLP_3 , RESTAR 
apes B7- ta) Merge this digit, vith low nibble 


20S: One less output 


De Se aGBe Se Se Se Se Se Se mf e Se BeBe Se Sete 


DEC 

BEQL 0$ No more room in output string 

ASHL #-1,R4,R4 Number of complete yees renaining 
BEQL 0$ Check for last digit ne 

TSTL RO Is source exhauste 5 

BNEQ 308 ; Go get next digits if not 
MARK_POINT CVTLP_4 , RESTART 

CLRB -(R3) ; Store a pair of zeros 

BRB Fill rest of output with zeros 


M 
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+ 


The following loop obtains two digits at a time from the source longword. It 
accomplishes this by dividing the current value of RO by 100 and converting 
the remainder to a petr of —— digits using the table that converts 
piety numbers in the range from 0 to 99 to their packed decimal equivalents. 
Note that this technique may cause nonzero to be stored in the upper nibble 
of the most significant byte of an even length string. This condition will 

be tested for at the end of the loop. 


o 


55 50 50 00000064 8F 768 
73. «=0000'CF45 90 


308: EDIV #100,R0,RO,R5 ; R5 gets remainder, next digit 
MARK_POINT CVTLP_5 , RESTART 
MOVB~  DECIMALSBINARY_T0_PACKED_TABLELR5],-(R3) 
; Store converted remainder 
Leave Z-bit alone if digit is zero 
Turn off Z-bit if nonzero 
Is source exhausted? 
Exit loop is no more source 
Check for end of loop 


40$ 
5B 04 BICB + aati 


40$: TSTL 
BEQL 50$ 
SOBGTR R4,30$ 
BRB 80$ ; Check for remaining digit 


E5 


COOOCOCOCOCCCOOOCOOOoCoOOoOooooO 


6969 08 SIN NNN NOOO AOOOm 
FOP OVIAWNS SO LLLELE SE 


3; The rot lowing code executes if the source longword is exhausted. If there 
3; are any remaining gtg'ts in the destination string, they must be filled 

; with zeros. Note that one more byte is cleared if the original input length 
; was odd. This includes the most significant digit and the unused nibble. 


50$: BLBS R2,65$ 3; One less byte to zero if odd input length 


MARK_POINT CVTLP_6 , RESTART 
R (R3) ; Set a pair of digits to zero 


02 52 «EB 


7 O$: 
FB 54 FS 5$: 


3; paths that arrive here do so with RO containing zero. R1 and R2, however, 
3 must be cleared on exit. 


51 70$: 


OF B89 
58 
OC30 8F BA 


CLRQ R1 3; Comform to architecture 
Bi tees #<PSLSM_N!PSLSM_Z!PSLSM_V!PSLSM_C> ; Clear condition codes 
0 


PWN OODNAUE WN $9 OD NAME WN HO ODONOU SEWN OOONOu 


AAAOOQUUMUUUVINUIVIULE BERR RRR RAW 


Set appropriate condition codes 


OOoCooocooooooooooo°oo 
RESSSSSSSOOS rr Roo 


DOOOCOOOSOOOSOSOSOSOOOSOOSOSOOOSOSOOOSO OOOO OOOOOOOOOOOOOOO 
LeSss ‘GO C9 Cd Co Cd Cd CD C9 C9 Cd CD CD CD CD 


94 The following code executes when there is no more room in the destination 
string. We first test for the parity of the output length and, if even, 
determine whether a nonzero digit was stored in the upper nibble 


most significant byte. Such a nonzero store causes an overflow condition. 


If the source operand is not yet exhausted, then decimal overflow occurs. 
If decimal overflow exceptions are enabled, an exception is signalled. 
Otherwise, the V-bit in the PSW is set and a normal exit is issued. Note 
that negative zero is only an issue for this instruction when overflow 
occurs. In the no overflow case, the entire converted longword is stored in 


6 - 

6 SOBGTR R4,60$ :; Any more digits to zero? 

: The following code is the exit path for this routine. Note that all code 
rf: POPR #*M<R4,R5,R10,R11> ; Restore registers, preserving PSW 
the output string and there is only one form of binary zero. 


; 
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3 Wo Last digit if odd output Length 
; Get next input digit 


; Store in Last output byte 
; Leave Z-bit alone if zero 


o 
o 
ef 


; Is source also all used up? 
; Yes, continue with exit processing 


; An overflow has occurred. If the Z=-bit is still set, then the N-bit is cleared. 
; Note that, because all negative zero situations occur simultaneously with 
; overflow, the output sign is left as minus. 


; RO must be zero on exit 
; Z-bit and wit Spence bri be set 


Set V-bit in saved PSW 


cimal traps are enabled (DV-bit is set), then 
generated. Note that the DV-bit can be set in 

s routine was entered as the result of an emulated 
n the saved PSL on the stack. 


; If the V-bit is set a 
a decimal overflow tre 
the current PSL or 
instruction 4M, 


; Report exception if current DV-bit eet 
; Set up R4 for PIC addres ariso 
$ 52 yd PC EQLU VAXSEXIT EM LATOR ? 


70 
#PSLSV_Dv, eet ie sOeES tsps 
; Only return vibit if DV-bit is clear 


3; Restore the saved registers and transfer control to DECIMAL_OVERFLOW 


Ri Co afore. to architecture 
BicPsy ecesLsn. N!PSLS$M_Z!PSLS$M_ UIPSLSM.C ; Clear condition codes 
#*M<RG,RS,R10,R11 
VAXSDECIMAL “OVERFLOW 


3; Set sipcegriets condition codes 
; Restore registers, preserving PSW 
3; Report overflow exception 


Ne 2 2 OO PH HK MH QDOOCOOOCOCOCOOCOWOOOOOOOONO 
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- SUBTITLE DECIMAL _ROPRAND 
: Functional Description: 


This routine receives control when a digit count larger than 31 
is detected. The exception is architecturally defined as an 
abort $0 there is no need to store intermediate state. The digit 
count is made after registers are saved. These registers must be 
restored before reporting the exception. 


cvovVvVvVTVTVCTcCCoO 1 


DPD PV PVPS SUSU SISTSTESISISISISISISIOSISISISIIISISI « 


Input Parameters: 


Saved R4 

Saved R5 

Saved R10 

Saved R11 

Return PC from VAXSCVTLP routine 


-*—O00 
Oorveto 
PLL LOO 
ONMNM 
wvuvuUDU 
ae ee ee ee 
seene 


Output Parameters: 


OO(SP) = Offset in packed register array to delta PC byte 
O4(SP) = Return PC from VAXSCVTILP routine 


Implicit Output: 


This routine passes control to VAXSROPRAND where further 
exception processing takes place. 


Pete Se Se Se Se Se Se Se Oe Be Se Be Be Be Be ee Se ee Se Se Be Be Se ee 


DODOOCOCOCCOOOCOCOOOOCOO 


DECIMAL_ROPRAND : 
0C30 8F POPR 


FF22° 


#*M<RG,RS,R10,R11> ; Restore registers 
PUSHL #CVTLP_B_DELTA_PC ; Store offset to delta PC byte 
BRW VAXSROPRAND ; Pass control along 
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. SUBTITLE CVTLP_ACCVIO = Reflect an Access Violation 


Functional Description: 


This routine receives control when an access violation occurs while 
executing within the VAXSCVTLP emulator routine. 


: The routine header for ASHP_ACCVIO in module VAXSASHP contains a 

: detailed description of access violation handling for the decimal 
; string instructions. This routine differs from most decimal 

3 instruction emulation routines in that it preserves intermediate 

3 results if an access violation occurs. This is accomplished by 

} storing the number of the exception point, as well as intermediate 
; arithmetic results, in the registers RO through R3. 


; Input Parameters: 
See routine ASHP_ACCVIC in module VAXSASHP 
Output Parameters: 
See routine ASHP_ACCVIO in module VAXS$ASHP 
CVTLP_ACCVIO: 
CLRL R Initialize the counter 
PUSHAB MODULE_BASE Store base address of this module 
SUBL2 (SP)+,R1 Get PC relative to this base 
10$: CMPW R1,PC_TABLE_BASECR2) : Is this the right PC? 
BEQL ; Exit loop if true 
AOBLSS #TABLE_SIZE,R2,10$ ; Do the entire table 


; If we drop through the dispatching based on PC, then the exception is not 
3; one that we want to back up. We simply reflect the exception to the user. 


20$: POPR #°M<RO,R1,R2,R3> ; Restore saved registers 
RSB ; Return to exception dispatcher 


; The exception PC matched one of the entries in our PC table. R2 contains 
3 the index into both the PC table and the handler table. R1 has served 
; its purpose and can be used as a scratch register. 


30$: MOVZWL HANDLER He 3 RASECAZI RI ; Get the offset to the handler 
JMP MODULE _BASECRT : Pass control to the handler 


i; In all of the instruction-specific routines, the state of the stack 
; will be shown as it was when the exception occurred. All offsets will 


; be pictured relative to RO. 
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- SUBTITLE Context-Specific Access Violation Handling for VAX$CVTLP 
: Functional Description: 


The intermediate state of the instruction is packed into registers RO 
through R3 and control is passed to VAXS$REFLECT_FAULT that will, in 
turn, reflect the access violation back to the user. The intermediate 
state reflects the point at which the routine was executing when the 
access violation occurred. 


Parameters: 
RO - Address of top of stack when access violation occurred 


Saved R4 on entry to VAX$CVTLP 
Saved R5 

Saved R10 

Saved R11 

Return PC from VAX$CVTLP routine 


Saved RO (restored by VAXS$HANDLER) 
Saved R41 
Saved R 
Saved R 


—CoOoOoO ——OCOooO 
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Output Parameters: 


RO - Address of return PC from VAXSCVTLP 
Ri - Byte offset to delta-PC in saved register array ; 
(PACK_V_FPD and PACK_M_ACCVIO set to identify exception) 


See List of input parameters for CVTLP_RESTART for a description of the 


contents of the packed register array. 


Implicit Output: 


Sete Se Se Se Se Se Se Ge Ge Ge Ge Ge Se Ge Ge Se Se Se Se Se Se Se Se Be Se Be Se Se Se Se Be Se Se Se Se 
' 


R4, R5, R10, and R11 are restored to the values that they had 
when VAX$CVTLP was entered. 


. ENABLE LOCAL_BLOCK 


+ 
; CVTLP_1 or CVTLP_2 


; An access violation occurred while storing the initial sign in the output 
; string. R1, R4&, and R5 contain junk at this point. 


0 
i] 
0 
0 
Q 
Q 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


a ed ed ae cae ca ced ed ee cee cn ed cee ee ed a ee ee ca co ee ed cee nd can ee ed ced ce ce ce ed cee ee ee ee ee a ae ed cae ee ee oe eB ae ed ed oD ed ed aD oD DD 
fone ele le le lolol wl ole el ale ealol oleae alalelelelelelelelelelelelelelelelelelolelelelelolelelelelolol ele oles =) 
ed ed ceed cd cand ed ed a cae ce cand eae cd et cn cd ae et coe cant ce cee ee ed ee ce eed ce ec ee et ee ee ee ee ee ee ee ee ee ee ee ee ae ee ee ee eB BoD Dee 


RO Input source longword . 
R gigi count of destination eyring E 
Address of sign byte in destination strin 


Current PSW (with Z-bit set and all aaheet clear) 


1 


1 
1 - Not important 
2 - Scratch but saved anyway 


R 
R 
. 
R Scratch but saved anyway 


7 
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VAXSCVTLP = VAX-11 Instruction Emulator for CVTLP 16-SEP-1984 01:32:35 VAX/VMS Be cro V04-00 Page 11 
vOu.000 Context-Specific Access Violation Handli ety 7 04:92:73 EMULAT.S RCIV VAXCVTLP.MAR;2 . (6) | 
101 463 
101 464 CVTLP_1: 
90 0101 465 MOVB #<CVTILP_1_RESTART!= ; Store code that locates exception PC 
19 466 CVTLP_M-FPD> 
07 AE 09 1 46 CVTILP7B- “STATE CSP) 
ee 6% 6610 468 BRB 10$ ; Join common code | 
107 rf) 
107 470 CVTLP_2 
90 0107 471 OvB #<CVTILP_2_RESTART!- ; Store code that locates exception PC 
3108 tr¢ CVTLP_M_FPD> 
07 AE OA 108 47 CVTLP=B “STATE (SP) 
a“ 8198 474 BRB 10$ ; Join common code 
10D 475 
010D 476 i+ 
8190 sr: ; CVTLP_3 through CVTLP_7 
010D 479 ; An access violation occurred while storing a digit or digit pair in the 
010D 480 ; output string. 
010D 481 : 
010D rt ae : RO = Input source 0 word (updated) 
010D 483; Ri - be (so that RO/R1 can be used as input quadword to EDIV) 
010D 484 ; R2 - nage count of duet tant ten strin 
010D 485 ; R$ - ress of current byte in destination string 
010D 486 ; R4 - Uodated de ig or byte count 
0100 487 ; R5 = Most recent remainder from EDIV 
0100 488 ; R11 - Current PSW (condition codes reflect results so far) | 
010D 489 ;- 
010D 490 
010D 491 CVTLP_3: 5: 
90 010D 136 MOVB #<CVTLP_3 RESTART !~ ; Store code that locates exception PC 
O10E 49 CVTLP_M_FPD> 
07 AE 0B QO10E 494 CVTLP_B_ “STATE CSP) 
16 11 0111 495 BRB 10$ ; Join common code 
0113 496 
0113 497 CVTLP_4: 
90 0113 498 MOVB #<CVTLP_ : epg a ; Store code that locates exception PC 
0114 499 CVTLP_M 
07 AE OC 0114 500 CVILP™ “8° “STATE CSP) 
10 11 #0117 #501 BRB 10$ ; Join common code 
0119 236 
0119 503 CVTLP_5: ‘ 
90 0119 504 MOVB #<CVTLP_5_RESTART!- ; Store code that locates exception PC 
011A 505 CVTLP_M_FPD> 
07 AE OD OIA 306 CVILPZB"STATE (SP) 
OA 11 0110 50 BRB 10$ ; Join common code 
O11F 208 
O11F 509 CVTLP.6: | 
90 O11F 510 MOVB #<CVTILP_6_RESTART!- ; Store code that locates exception PC | 
0120 511 CVTLP_M_FPD> 
07 AE OE 01 0 31g CVTILP7B- “STATE (SP) | 
04 11 01 51 BRB 10$ ; Join common code 
0125 514 | 
4 5 a? CVTLP_?: . 
90 0125 16 #<CVILP_7_RESTART!- ; Store code that locates exception PC 
ot 6 517 CVTLP_M~FPD> 
07 AE OF 126 318 CVTLPTB7STA ATE CSP) 
0129 351 | 
| 


- 3 
VAXSCVTLP = VAX-11 Instruction Emulator for CVILP 1 mitt ts 9}: 34 33 AX/VMS Macro V04-00 Page 12 VA) 
v04-000 Context-Specific Access Violation Handli 7-SEP-1984 17:1 EMULAT.SRCJVAXCVTLP.MAR; 2 (6) | Vv0é 
04 AE ¢ 0 129 0 10$: MOVB R4,CVTLP 8. SAVED_R4(SP) ; Store current Gigit/byve count 
05 AE ea. 12D 1 MOVB R5,CVTLP"BSAVED"R5 (SP) Store latest EDIV remainder 
06 AE 5B 90 1 : MOVB R11,CVTLP_B SAVED Ra Sree Store current condition codes | 
1 : 4 ; At this point, all intermediate state has been preserved in the register 
135 5 3 array on the stack. We now restore the registers that were saved on entry 
135 6 ; to VAXSCVTLP and pass control to VAXSREFLECT_FAULT where further exception 
4 é 2 i 3; dispatching takes place. 
54 80 7D 8133 529 MOVa (RO)+,R4 3; Restore R4 and R5 | 
5A 80 7D 4 ; 5 , MOVQ (RO)+,R10 3 «ee and R10 and R11 
51 00000308 8F 00 $138 $33 MOVL #<CVTLP_B DELTA_ PC!- : Indicate offset for delta PC 
014 53 PACK i. FPB!- ; FPD bit should be set 
014 534 PACK M ACCVIO>,R1 ; This is an access violation 
FEBB’ 31 O18 23? BRW VAXSREFLECT_ FAULT ; Continue exception handling 
0145 537 -DISABLE LOCAL _BLOCK 


2:35 VAX/VMS Macro V04-00 Page 13 | 
4:10 CEMULAT.SRCIVAXCVTLP.MAR;2 (7) | 


npack and Restart CVTLP Instruction 


VAXSCVTLP 
v04-000 


G6 3 
ruction Emulator for CVTLP 1 mi eh 9 01:3 
= Unpack and Restart CVTLP /7-SEP-1984 17:1 
U 


. SUBTITLE CVTLP_RESTART - 


wm 
abo 
>s 
zw 


PVDVPVPVIVIVIV IV IVIVLIVIVIVIVIUSIVIUIVSIULVIVSIUSVIUSVSIV SIV SIUSUSUSVSUSVOSUS USSU VOSS VSISIOSIS IOS USIOSOSIOSIOSIOSIOSISIS «IP 
OOOO O00 00.0909 69 09 0909 09 09 SI SINISE NNO DS DDO DOO TTT EB ES BS BS EEE 


Functional Description: 


This routine receives control when a CVTLP instruction is restarted. 
The instruction state (stack and rate registers) is restored to the 
state that it was in when the instruction (routine) was interrupted and 
control is passed to the PC at which the exception occurred. 


Input Parameters: 


31 23 15 07 00 
Pew eee em ea ee em prem e mw ean amore eos tro mowmam aware em me Pesan ee sn ween oceean +> 
' src i : RO 
$e ew owen nroae ween d oan nes nom maoe ea ee $ eee rere wee recor ene powmeewmommanowe sao e + 
' state H saved_PSwW ' saved_R5 saved_R4 t = R1 
SSO e Benn Eo noaD eae peewee aonr anaes oe ae epee re nn ee mero e em en femme me wre w sso erae + 
delta-PC ' XXXX ' dstlen i : R2 
peewee me me em a em posse o see oner sec} oc ne ewe mesaeo seem ep} o een ew erase ence2e=$ 
' dstaddr i 3 R3 
tee en ewwmanwnonumocane pwn meascenne nce annne poeemesseowamocone wPoeeemeee sence aaeanee + 


ae on where the exception occurred, some of these parameters 
sn not be relevant. They are nevertheless stored as if they were 
valid to make this restart code as simple as possible. 


RO - Updated source lLongword 

R1<07:00> = Latest digit or byte count (loaded into R4) 

SBT a - Most recent remainder from EDIV (loaded into R5) 
R1coei2e> - Restart code (identifies point where routine will resume) 
Ri<27>_ = = Internal FPD flag, 4 

R2<15:00> - Initial value of ‘‘dstlen 

R2<23:16> - spare : 

=¥ 1:24> = Size of instruction in instruction stream — 

R - Address of current byte in destination string 


OO(SP) = Return PC from VAXSCVTLP routine 
Output Parameters: 


ee ee ee me ee ed od od dd od od od od od = od 3 od 3 xze— 
SN ee ee ee ee 
PUPUPV PUPP V PULLED LUPUS USSU TUSSI 
MEW @OODNAUNE WN SO OONAUESWWN OO OONAU EWN O ODNAUES WN OOONAULS WOO 


Py 
Py 
Py 
e 
. 
Py 
e 
Py 
e 
e 
° 
Py 
o 
Py 
: Ri< 
e 
Py 
Py 
° 
P 
e 
Py 
e 
e 
e 
Ps 
° 
Py 
e 


fe fell ele ola lola ola ool ole lol alow la lo lo lolaloleoleololelolelolelolelelelelelelelelelelelelelelololalolololoio wg) 


| 
| 
| 
| 
Saved condition codes (loaded into R11) 
| 
| 
| 
| 
| 


RO = Updated source longword (unchanged from input) 
Rl = scratc > e 
“i! - Initial value of ‘‘dstlen : : 
R5 = Address of current byte in output string (unchanged from input) 
R4 = Latest digit or byte count 
R5 = Most recent remainder from EDIV _ hs = 
R10 = Address of CVTLP_ACCVIO, this module's ‘condition handler 
R11 = Condition codes 
OO(SP) = Saved R4 
04(SP) = Saved R5 
98 tae} - Saved R10 
12(SP) = Saved R11 q 
16(SP) = Return PC from VAXS$CVTILP routine 

; Implicit Output: 


H 
VAXSCVTLP = VAX-11 Instruction Emulator for evil me eb 9 9}: 32:33 AX/VMS Macro V04-00 Page 14 | 
v04-000 CVTLP_RESTART = Unpack and Restart CVTLP 7=SEP-1984 17:14:10 CEMULAT.SRCIJVAXCVTLP.MAR;2 (7) | 
14 96 ; 
14 38 3 Control is passed to the instruction that was executing when the 
14 98 ; access violation occurred. 
14 99 ;- 
14 600 
132 601 VAXSCVTLP_RESTART:: 
0Cc33 8F BB O14 6 § POSHR #*M<RO,R1,R4,R5,R10,R11> ; Save some registers 
0149 60 ESTABLISH_HANDLER CVTLP_ACCVIO ; Reload R10 with handler address 
0 EF 014D ons EXTZV #CVTILP_V_STATE,- 
0 Q14F 605 #CVTLP_S STATE,= 
51 07 AE 015 O26 CV LP_6_STATE(SP) R1 ; Put restart code into R1 
54 04 AE 9A O19 60 MOVZBL CVTLPTB-SAVED_R4 (SP) ,R4 : Restore digit/byte count 
55 5 AE 9A 01 608 MOVZBL CVTLP_B_SAVED_R5S(SP) ,R5 ; Restore latest EDIV remainder 
58 06 AE 9A 0158 609 MOVZBL CVTLPTB-SAVED~PSW(SP) ,R11 : Restore condition codes 
i 9A O15F 610 MOVZBL R2,R2 3; Clear out R2<31:8> 
5E 08 0 8188 611 ADOL #8,SP ; Discard saved RO and R1 
51 FFFE*CF41 C HH oi¢ MOVZWL RESTART_PC_TABLE_BASE-2(R1J,R1 ; Convert code to PC offset 
0168 614 ; In order to get back to the restart point with R1 containing zero, we cannot 
the a1? ; use R1 to transfer control as we did in other routines Like VAXSCVTPL. 
FE9O CF41 OF Q16B 617 PUSHAB MODULE_BASECR1) ; Store ‘‘return PC" 
51 D4 0170 618 CLRL R1 3; Restart with R1 set to zero 
05 B78 619 RSB : Get back to work 
017 os 
0173 = 621 END_MARK_POINT CVTLP_M_STATE 
0173 oc¢ 
0173 62 - END 


. 2 
VAXSCVTLP = VAX-11 Instruction Emulator for CVTLP oe tt 9 9}: :32:35 VAX/VMS Macro v04-00 Page 15 | 
Symbol table -SEP-1984 17:14:10 EMULAT.S REIV VAXCVTLP.MAR;2 (7) | 


PC. = 0000009C 
- «RESTART PC. = 8 9C 
.ROPRAND... = 00 iC R 08 
CVILP_1 388 91 R 
CVTLP_1_RESTART s 8 001 
CVTLP_ 9 497 8 02 
CVTLP_2_RESTART = 00000002 
CVTLP_ 44d R 02 
CVTLPS RESTART = 00 309 
CVTLP_4~ 00000113 R 02 
CVILP ~4_RESTART = 00000004 
CVTLP 2 44 SBN R 02 
CVTLP_S_RESTART = 00000005 
CVTLP_6 QOOOOO11F R 02 
CVTLP_6_RESTART = Bob Oy oe 
CVTLP_7” 00000125 R 02 
CVTLP_7_RESTART = 00000007 
CVTLP_ACCVIO QOOOOODE R 02 
CVTLP_B_DELTA_P = 00000008 
CVTLP_B_SAVED_PSwW = 00000006 
CVTLP_B_SAVED_R4 = 00000004 
CVTLP_B_SAVED_RS = 00000005 
CVTLP_B_STATE = 00000007 
CVTLP_M_FPD = 00000008 
CVTLP_M_STATE = 00000007 
CVTLP_S_STATE = 00000003 
CVTLP_V_FPD = 00000003 
CVTLP-V"STATE = 00000000 
DECIRALSBINARY TO_PACKED_TABLE ‘teeeeeee x 00 
DECIMAL ANB 000000D5 R 02 
EXCEPTI tOncP = 0000002C 
HANDLER TABLE _BASE 00000000 R 04 
MODULE _BAS = Sih R 02 
MODULE _ “1 = 000001 R 02 
PACK_M_ACCVIO = 00000200 
PACK-M_FPD = 00000100 
PC_TABLCE_BASE 00000000 R 03 
PSCSM_C = 00000001 
PSLSM_N = 00000008 
PSLSM_V = 00000002 
SLSM_ = 00000004 
ty = 00000007 
pee tare _PC_TABLE_BASE ‘ 09000000 a 05 
RESTART TABLE_SIZE z= 9900000 
TABLE SIZE = 00000007 
VAXSCOTLP 00000003 RG Og 
VAXSCVTLP_RESTART 00000145 RG 2 
VAX$DEC IMAL OVERFLOW tereerer xX 00 
VAXSEXIT_EMOLAT eeeeeere 8 §=6X = 8600 
VAXSREFLERT YFAULT eeeeeeeer = § X 00 
VAXSROPRAND™ tereeere = § X 00 


———_—_—_— 
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! Psect synopsis ! 


poem aweonencaesean + 


PSECT name Allocation PSECT No. Attributes 

» 6 « 00000000 -)») 00¢ OO.) NOPIC uUSR CO ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 

SABSS 00 ! ( ) 1 ¢ -) NOPIC USR CON ABS LCL NOSHR EXE R&D WRT NOVEC BYTE 
VAXSCODE 4 1 ( 371.) ¢ ( ¢-3 PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
PC_TABLE QOOOOO0E ( 14.) ( = PIC USR CON REL LCL SHR NOEXE RD NOWRT NOV YTE 
HANDLER_ TABLE 8° Bee . 36.) @¢ 4&6.) PIC USR CON REL LCL SHR NOEXE RD NOWRT NOVEC BYTE 
RESTART_PC_TABLE OOOOE (« 14.) 5 ¢ 5.2 PIC USR REL LCL SHR NOEXE 


| 
RD NOWRT NOVEC BYTE 
+ + 
H Performance indicators ! 
| 


cen eeee een er eee ere ene ane + 
Phase Page faults CPU Time Elapsed Time 
Initialization :00:00. :00:01. 
itiali i 11 00:00:00.05 00:00:01 

poanene processing 153 88:85:05: 87 aes ea 
ass :00:02. 2:00:13. 
Symbol table sort Be BO OF ae 00:00:00.11 
Pass 2 11 00:00:01.28 00:00:04.49 
Symbol table output bs Se 00:00:00.06 
Psect synopsis output 00:00:00.0 00:00:00.03 
Cross-reference output 00:00:00.00 00:00:00.00 
Assembler run totals 329 00:00:04.97 00:00:24.99 


14994 bytes (30 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 121 non-local and 19 local symbols. 
623 source Lines were read in Pass 1, producing 20 object records in Pass 2. 

19 pages of virtual memory were used to define 17 macros. 


SOOO REO wa 


Macro Library name Macros defined 
-$255$DUA28: CEMULAT .OBJ JVAXMACROS.MLB; 1 9 
$255$DUA28: (SYSLIBISTARLET.MLB; 2 5 
TOTALS ‘all Libraries) 14 


| 
The working set Limit was 1050 pages. 


278 GETS were required to define 14 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:VAXCVTLP/OBJ=OBJ$:VAXCVTLP MSRC$: VAXCVTLP/UPDATE=(ENHS: VAXCVTLP) +L IB$: VAXMACROS/LIB 
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